home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware in MacFormat / pats-virtual-office-22 / PatsUniverse2.2 / PatsUniverse2 / 00028_paintingButton.ls < prev    next >
Encoding:
Text File  |  1994-11-22  |  136 b   |  9 lines
  1. on mouseUp
  2.   puppetSound("Single Click")
  3.   updateStage()
  4.   repeat while soundBusy(1)
  5.   end repeat
  6.   puppetSound(0)
  7.   go("painting")
  8. end
  9.